home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / italia / atapipnp.lha / atapi_pnp / Installa.Italiano < prev    next >
Text File  |  1996-01-16  |  16KB  |  595 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; ************************************************
  10.  
  11. ;/// Variabili
  12. ; ****************************
  13. ;       Variabili
  14. ; ****************************
  15. ;
  16.  
  17. (set DemoVersion        1) ; Demo Version
  18. (set ProductName        "ATAPI PnP ITALIAN VERSION"  )  ; product name
  19. (set ProductBaseName    "Atapi PnP")                    ; product base name
  20. (set VersionNum         "1.00 ")                     ; product version number
  21.  
  22. (set OSVersion          (/ (getversion) 65536))
  23. (set PctDone            0)
  24.  
  25. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  26.  
  27. (makeassign "CDPLUSPLUS" "" (safe))
  28.  
  29. (set Disk1Name                  "CDPLUSPLUS:")
  30.  
  31. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  32.  
  33. ;///
  34.  
  35. ;/// Proc setPkgOPts
  36. (procedure setPkgOpts
  37. ;
  38. ; ****************************
  39. ; * Wich Parts
  40. ; ****************************
  41. ;
  42.   (
  43.         (set PkgOpts
  44.                 (askoptions
  45.                         (prompt
  46.                            "Scegli le parti che vuoi installare"
  47.                            ("del pacchetto %s" ProductName)
  48.                         )
  49.                         (help
  50.                                 "Questa parte dell'installazione ti permette di scegliere quali moduli del"
  51.                                 (" pacchetto %s vuoi installare.\n" ProductName)
  52.                                 "\n"
  53.                                 "*** Atapi Device Driver\n"
  54.                                 "Questa opzione farà si che verrà installato il device"
  55.                                 " driver (cd.device )nella directory Devs: (Fondamentale)\n"
  56.                                 "\n"
  57.                                 "*** CDplusplusFS\n"
  58.                                 "Questa opzione installerà il file system proprietario"
  59.                                 " della CD++ nella directory L: (Consigliato).\n"
  60.                                 "\n"
  61.                                 "*** MAP-Mini Atapi Player\n"
  62.                                 "Questa opzione installerà una utility che permette la"
  63.                                 " riproduzione di CD-Audio anche misti.\n"
  64.                                 "\n"
  65.                                 "*** TRKDownLoad Track-Downloader\n"
  66.                                 "Questa opzione farà installare un utility che permette"
  67.                                 " il salvataggio su file di parti di tracce audio o dati.\n"
  68.                                 "\n"
  69.                                 "*** PlayCDXL\n"
  70.                                 "Questa opzione installerà un utility che permette la"
  71.                                 " riproduzione in tempo reale di film CDXL.\n"
  72.                                 "\n"
  73.                                 @askoptions-help
  74.                         )
  75.                         (choices
  76.                                 ; bit position 0 -- todo & 1
  77.                                 ;
  78.                                 "Atapi Device Driver          (16 Kbytes)"
  79.  
  80.                                 ; bit position 1 -- todo & 2
  81.                                 ;
  82.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  83.  
  84.                                 ; bit position 2 -- todo & 4
  85.                                 ;
  86.                                 "MAP- Mini Atapi Player       ( 9 Kbytes)"
  87.  
  88.                                 ; bit position 3 -- todo & 8
  89.                                 ;
  90.                                 "TRKDownLoad- Track DownLoader(15 Kbytes)"
  91.  
  92.                                 ; bit position 4 -- todo & 16
  93.                                 ;
  94.                                 "PlayCDXL - Player Film CDXL  (30 Kbytes)"
  95.  
  96.                         )
  97.                 )
  98.         )
  99.   )
  100. )
  101. ;///
  102.  
  103. ;/// Proc setDirPath
  104.  
  105. (procedure setDirPath
  106. ;
  107. ; ****************************
  108. ; * Ask the user for a directory name.
  109. ; ****************************
  110. ;
  111. ; these variables must be defined before calling this procedure:
  112. ;    setDirPathWhy
  113. ;    setDirPathHelp
  114. ;    DirPath
  115. ;
  116. ; this procedure returns the selected directory in DirPath
  117. ;
  118.    (
  119.  
  120.        (set DirPath
  121.                (askdir
  122.                        (prompt ("Seleziona il disco sul quale installare il pacchetto  ( Normalmente SYS: )" )
  123.  
  124.                        )
  125.                        (help   "Il Pacchetto verrà installato sul disco"
  126.                                " prescelto .\n"
  127.                                "Se volete installare il pacchetto su un dischetto"
  128.                                " bootabile inserite quest'ultimo e sceglietelo"
  129.                                " dalla lista che si presenta\n"
  130.                                "\n"
  131.                                @askdir-help
  132.                        )
  133.                        (disk)
  134.                        (default "SYS:")
  135.                )
  136.        )
  137.  
  138.  
  139.  
  140.    )
  141. )
  142. ;///
  143.  
  144. ;/// Proc AskFsIcon
  145. ;
  146. ;
  147. (procedure AskFsIcon
  148. ;
  149. ; This procedure ask of wich cd Icon you want to install with wich Name
  150. ; It requires initialization of variables:
  151. ;
  152. ; In "DefaultIcon" ci deve essere quella accesa di default
  153. ; 
  154. ; Ridà in "IconChoose" qual icona
  155. ; 0 nessuna - 1 AmiCDFilesystem
  156. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  157. ;
  158.   (
  159.     (set IconChoose
  160.      
  161.            (askchoice
  162.                 (prompt "Scegli per quale CD-Filesystem installare l'icona")
  163.                 (help
  164.                         "Potete scegliere per quale filesystem"
  165.                         " installare il pacchetto.\n"
  166.                         "Nel caso che abbiate installato il"
  167.                         " CDpluplusFS , scegliete quest'ultimo.\n"
  168.                         "\n"
  169.                         "Se il filesystem in vostro possesso"
  170.                         " non è presente tra quelli nella lista"
  171.                         " scegliete -Nessuno- e modificate nei"
  172.                         " tooltype dell'icona del vostro device"
  173.                         " CD la voce Device con\nDevice=cd.device\n"
  174.                         "e la voce Unit con\nUnit=0\n"
  175.                         @askchoice-help
  176.                 )
  177.                 (choices
  178.                         "-Nessuno"
  179.                         "-AmiCDFileSystem - by Nicola Salmoria"
  180.                         "-cdrom-handler   - by Frank Munkert"
  181.                         "-CDFileSystem    - by CBM Commodore"
  182.                         "-CDplusplusFS    - by CD++"
  183.                 )
  184.                 (default DefaultIcon)
  185.            )
  186.     )
  187.   )
  188. )
  189. ;///
  190.  
  191. ;/// Proc GetDevName
  192. ;
  193. ;  in DevName si ritrova il nome da usare per l'icona
  194. ;
  195.  
  196.  
  197. (procedure GetDevName
  198.    
  199.    (
  200.      (set DevName
  201.            (askstring
  202.                      (prompt "Scrivi il nome per il device CD-Rom senza i due punti\nEs. CD0")
  203.                      (help
  204.                              "Il nome scelto sarà quello del"
  205.                              " Device fisico\n"
  206.                              "E' conveniente non scegliere"
  207.                              " nomi troppo lunghi\n"
  208.                              "\nE' consigliabile CD0 o CD1 ecc."
  209.                              " dato che molti programmi cercano"
  210.                              " questo nome\n"
  211.                      )
  212.                      (default "CD0")
  213.            )
  214.      )
  215.    )
  216. )
  217. ;///
  218.  
  219. ;/// Proc AskAutoMount
  220. ;
  221. ;
  222. (procedure AskAutoMount
  223. ;
  224. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  225. ; storage dosdrivers
  226. ;
  227.   (
  228.     (set AutoMount
  229.      
  230.            (askbool
  231.                 (prompt "Vuoi che il device Atapi venga montato"
  232.                         " automaticamente ad ogni riavvio ,od"
  233.                         " a ogni accensione ?"
  234.                 )
  235.                 (help
  236.                         "Rispondendo positivamente l'icona del"
  237.                         " device verrà posta nel cassetto:\n"
  238.                         "Devs:Dosdrivers\n"
  239.                         "In questo modo il lettore CD-ROM sarà disponibile"
  240.                         " ad ogni riavvio o accensione della macchina\n\n"
  241.                         "Altrimemti in: Storage:DosDrivers\n"
  242.                         "ed il lettore sarà utilizzabile solo dopo aver cliccato due volte sulla sua Icona"
  243.                 )
  244.                 (choices
  245.                         "Monta al Riavvio"
  246.                         "No,Montaggio manuale"
  247.                 )
  248.                 (default 1)
  249.            )
  250.     )
  251.   )
  252. )
  253. ;///
  254.  
  255.  
  256. ; *************************************************************************
  257. ; *                         ACTUAL START OF SCRIPT
  258. ; *
  259. ; * Ask all questions for the user now, do all of the work later.
  260. ; *************************************************************************
  261. ;
  262. ;/// MAIN SCRIPT
  263. (onerror
  264.  
  265. )
  266. ; ****************************
  267. ;  Check for OS Version
  268. ; ****************************
  269.  
  270. (if (= DemoVersion 1)
  271.     (message "\n" "\n"
  272.              "Attenzione: Questa è una versione DEMO\n"
  273.              "del Pacchetto Atapi PnP !\n"
  274.              "PUOI RIDISTRIBUIRE IL DISCO\n"
  275.              "COMPLETO A CHIUNQUE (tranne ai Crakker)" "\n"
  276.              "\n" "\n" "\n"
  277.              "Atapi Plug'n Play is Copyright by \n"
  278.              "Georg Campana & Marco Campinoti ©1994"
  279.              (help "Per avere la versione registrata , completamente funzionante leggete il manuale o chiamate : 0565/850621 e 0565/853005")
  280.     )
  281.  
  282.     (message "\n" "\n"
  283.              "Attenzione: Questa è la versione Registrata\n"
  284.              "del Pacchetto Atapi PnP !\n"
  285.              "E' VIETATO RIDISTRIBUIRE QUALSIASI FILE\n"
  286.              "PRESENTE IN QUESTO DISCHETTO" "\n"
  287.              "( I file sono contrassegnati )\n" "\n" "\n"
  288.              "Atapi Plug'n Play is Copyright by \n"
  289.              "Georg Campana & Marco Campinoti ©1994"
  290.              (help "Se volete fare registrare chiamate: 0565/850621 o 0565/853005")
  291.     )
  292. )
  293.  
  294.  
  295. ; ****************************
  296. ; ****************************
  297. ;
  298.  
  299. (set DirPath "SYS:")
  300.  
  301. (setDirPath)
  302.  
  303. (set @default-dest DirPath)
  304.  
  305. (set devdest  (tackon @default-dest "Devs"))
  306. (set fsdest   (tackon @default-dest "L"))
  307. (set utildest (tackon @default-dest "Utilities"))
  308.  
  309.  
  310. (setPkgOpts)
  311.  
  312. (set DefaultIcon 0)
  313.  
  314. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  315.     (set DefaultIcon 1)
  316. )
  317.  
  318. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  319.     (set DefaultIcon 2)
  320. )
  321.  
  322. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  323.     (set DefaultIcon 3)
  324. )
  325.  
  326. (if (IN PkgOpts 1)
  327.     (set DefaultIcon 4)
  328. )
  329.  
  330. (AskFsIcon)
  331.  
  332. (select IconChoose
  333.    (set FsName 0)
  334.    (set FsName "AmiCDFS")
  335.    (set FsName "AmiCDHandler")
  336.    (set FsName "CbmCDFS")
  337.    (set FsName "CDplusplusFS")
  338. )
  339.  
  340.  
  341. (set AutoMount 1)
  342. (set DevName "CD0")
  343.  
  344. (if (> @user-level 1)
  345.  
  346.     (if (<> IconChoose 0)
  347.         (
  348.          (GetDevName)
  349.          (AskAutoMount)
  350.         )
  351.     )
  352. )
  353.  
  354. (if (= AutoMount 1)
  355.     (set Icondest  (tackon @default-dest "Devs"))
  356.     (set Icondest  (tackon @default-dest "Storage"))
  357. )
  358.  
  359.  
  360.  
  361.  
  362.  
  363. (if (IN PkgOpts 0)
  364.     (set MemSpace (+ MemSpace 16000))
  365. )
  366. (if (IN PkgOpts 1)
  367.     (set MemSpace (+ MemSpace 23000))
  368. )
  369. (if (IN PkgOpts 2)
  370.     (set MemSpace (+ MemSpace  9000))
  371. )
  372. (if (IN PkgOpts 3)
  373.     (set MemSpace (+ MemSpace 30000))
  374. )
  375. (if (IN PkgOpts 4)
  376.     (set MemSpace (+ MemSpace 14000))
  377. )
  378. (if (<> IconChoose )
  379.     (set MemSpace (+ MemSpace 1000))
  380. )
  381.  
  382. (if (< (getdiskspace DirPath) MemSpace)
  383.     (if(> (getdiskspace DirPath) 0)
  384.        (
  385.           (abort "ATTENZIONE: Lo spazio disponibile\n"
  386.                  ("sul disco %s\n" DirPath)
  387.                  ("è di soli %ld bytes\n" (getdiskspace DirPath) )
  388.                  ("e ne servono almeno %ld\n" MemSpace)
  389.                  "\n"
  390.                  "Rilanciate l'icona di Installazione\n"
  391.                  "e selezionate meno utility , oppure\n"
  392.                  "cancellate qualche file dal vostro\n"
  393.                  ("disco %s\n" DirPath)
  394.           )
  395.        )
  396.     )
  397. )
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.  
  407.  
  408.  
  409.  
  410.  
  411.  
  412. ; if bit position 0 is on  Installa device
  413. (if (IN PkgOpts 0)
  414.      (
  415.  
  416.         
  417.         (if (< (exists devdest (noreq)) 2)
  418.  
  419.             (makedir devdest
  420.                (prompt "Creo una directory -Devs-")
  421.                (infos)
  422.             )
  423.         )
  424.  
  425.  
  426.         (copylib
  427.             (prompt "Installo Device Driver")
  428.             (source (tackon Disk1Name "devs/cd.device"))
  429.             (dest devdest)
  430.             (optional force)
  431.         )
  432.         
  433.  
  434.      )
  435. )
  436. ; if bit position 1 is on Installa FileSystem
  437. (if (IN PkgOpts 1)
  438.      (
  439.  
  440.         
  441.         (if (< (exists fsdest (noreq)) 2)
  442.  
  443.             (makedir fsdest
  444.                (prompt "Creo una directory -L-")
  445.             )
  446.         )
  447.  
  448.  
  449.         (copylib
  450.             (prompt "Installo FileSystem della CD++")
  451.             (source (tackon Disk1Name "l/CDplusplusFS"))
  452.             (dest fsdest)
  453.             (optional force)
  454.         )
  455.         
  456.  
  457.      )
  458. )
  459.  
  460. ; if bit position 2 is on Installa MAP
  461. (if (IN PkgOpts 2)
  462.      (
  463.  
  464.         
  465.         (if (< (exists utildest (noreq)) 2)
  466.  
  467.             (makedir utildest
  468.                (prompt "Creo una directory -Utilities-")
  469.                (infos)
  470.             )
  471.         )
  472.  
  473.  
  474.         (copyfiles
  475.             (prompt "Installo Mini Atapi Player")
  476.             (source (tackon Disk1Name "utilities/MAP"))
  477.             (dest utildest)
  478.             (infos)
  479.             (optional force)
  480.         )
  481.         
  482.  
  483.      )
  484. )
  485.  
  486. ; if bit position 3 is on Installa TRKDownLoad
  487. (if (IN PkgOpts 3)
  488.      (
  489.  
  490.         
  491.         (if (< (exists utildest (noreq)) 2)
  492.  
  493.             (makedir utildest
  494.                (prompt "Creo una directory -Utilities-")
  495.                (infos)
  496.             )
  497.         )
  498.  
  499.  
  500.         (copyfiles
  501.             (prompt "Installo TrkDownLoader")
  502.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  503.             (dest utildest)
  504.             (infos)
  505.             (optional force)
  506.         )
  507.         
  508.  
  509.      )
  510. )
  511.  
  512. ; if bit position 4 is on Installa PlayCDXL
  513. (if (<> DemoVersion 1)
  514.    (if (IN PkgOpts 4)
  515.         (
  516.  
  517.            
  518.            (if (< (exists utildest (noreq)) 2)
  519.  
  520.                (makedir utildest
  521.                   (prompt "Creo una directory -Utilities-")
  522.                   (infos)
  523.                )
  524.            )
  525.  
  526.  
  527.            (copyfiles
  528.                (prompt "Installo PlayCDXL")
  529.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  530.                (dest utildest)
  531.                (infos)
  532.                (optional force)
  533.            )
  534.            
  535.  
  536.         )
  537.    )
  538. )
  539. (if (> IconChoose 0)
  540.     (
  541.         (if (< (exists Icondest (noreq)) 2)
  542.  
  543.             (makedir Icondest
  544.                (prompt "Creo una directory Devs o Storage")
  545.                (infos)
  546.             )
  547.         )
  548.  
  549.         (set Icondest  (tackon Icondest "Dosdrivers"))
  550.          
  551.         (copyfiles
  552.             (prompt "Installo l'Icona del Device")
  553.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  554.             (dest IconDest)
  555.             (newname  DevName)
  556.             (infos)
  557.             (optional force)
  558.         )
  559.  
  560.     
  561.         (if (= AutoMount 1)
  562.             ( message "\n" "\n"
  563.                    "Ad ogni riavvio del calcolatore o ad ogni\n"
  564.                    "accensione- il lettore CD-ROM verrà \"Montato\"\n"
  565.                    "automaticamente !\n"
  566.                    "\n"
  567.                    "Potete disabilitare questo automatismo\n"
  568.                    ("trascinando l'icona %s dal cassetto " DevName)
  569.                    "Devs/Dosdrivers nel cassetto Storage/Dosdrivers\n"
  570.             )
  571.             ( message "\n" "\n"
  572.                    "Potete \"Montare\"\n il lettore CD-ROM\n"
  573.                    ("cliccando semplicemente sull'Icona %s\n" DevName)
  574.                    "nel cassetto Storage/Dosdrivers\n"
  575.                    "Per abilitare il montaggio automatico\n"
  576.                    "trascinate l'Icona nel cassetto Devs/Dosdrivers"
  577.             )
  578.         )
  579.     )
  580.     ( message "\n" "\n"
  581.            "Non è stata installata alcuna Icona per\n"
  582.            "il montaggio del lettore CD-ROM .\n"
  583.            "E' necessario quindi costruirsi quest'ultima\n"
  584.            "autonomamente seguendo le istruzioni del\n"
  585.            "proprio filesystem !\n"
  586.            "\n"
  587.            "Potete anche rilanciare l'icona di installazione\n"
  588.            "e selezionare un filesystem alla richiesta\n"
  589.     )
  590.  
  591. )
  592.  
  593. (exit)
  594. ;///
  595.